Data

All the data used in this assignment is extracted from City of Cambridge.

boudary <- read_sf("https://github.com/cambridgegis/cambridgegis_data/raw/main/Boundary/CDD_Neighborhoods/BOUNDARY_CDDNeighborhoods.geojson")
building <- read_sf("https://github.com/cambridgegis/cambridgegis_data/raw/main/Basemap/Buildings/BASEMAP_Buildings.geojson")
landuse <- read_sf("https://github.com/cambridgegis/cambridgegis_data/raw/main/CDD/Land_Use/CDD_LandUse.topojson")
zoning <- read_sf("https://github.com/cambridgegis/cambridgegis_data/raw/main/CDD/Zoning_Districts/CDD_ZoningDistricts.geojson")
tree <- read_sf("https://github.com/cambridgegis/cambridgegis_data/raw/main/Environmental/Trees/ENVIRONMENTAL_StreetTrees.geojson")
pubschool <- read_sf("https://github.com/cambridgegis/cambridgegis_data/raw/main/Landmark/Public_Schools/LANDMARK_PublicSchools.geojson")
prischool <- read_sf("https://github.com/cambridgegis/cambridgegis_data/raw/main/Landmark/Private_Schools/LANDMARK_PrivateSchools.geojson")
road <- read_sf("https://github.com/cambridgegis/cambridgegis_data/raw/main/Basemap/Roads/BASEMAP_Roads.geojson")
openspace <- read_sf("https://github.com/cambridgegis/cambridgegis_data/raw/main/Recreation/Open_Space/RECREATION_OpenSpace.geojson")
strlights <- read_sf("https://github.com/cambridgegis/cambridgegis_data/raw/main/Infra/Street_Lights/INFRA_StreetLights.geojson")

Map-1

ggplot(data = openspace)+
  annotation_map_tile(zoomin = 0, progress = "none") +
  geom_sf(aes(color = OWNER, fill = OWNER))+
  geom_sf(data = pubschool, size = 5, color = "seagreen1", alpha = 1/3) +
  geom_sf(data = prischool, size = 5, color = "tomato", alpha = 1/3)
## Loading required namespace: raster

Map-2

ggplot(data = openspace)+
  annotation_map_tile(zoomin = 0, progress = "none", type = "cartolight") +
  geom_sf(aes(color = OWNER, fill = OWNER))+
  geom_sf(data = pubschool, size = 5, color = "seagreen1", alpha = 1/3) +
  geom_sf(data = prischool, size = 5, color = "tomato", alpha = 1/3)

Map-3

Map-4

ggplot(data = openspace)+
  annotation_map_tile(zoomin = 0, progress = "none") +
  geom_sf(data = pubschool) +
  geom_sf(data = prischool)

Map-5